home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / Trails / Fixes.DEF < prev    next >
Text File  |  1986-08-05  |  342b  |  18 lines
  1. (* This module implements fixes to some of TDI's interfaces 
  2.    to intuition routines:
  3.  
  4.    Created: 4/9/86 by TDI
  5.  
  6.    Modified:
  7.    
  8. *)
  9.  
  10. DEFINITION MODULE Fixes;
  11.  
  12.  FROM Ports IMPORT MsgPortPtr, MessagePtr;
  13.  FROM Tasks IMPORT SignalSet;
  14.  
  15.  PROCEDURE GetMsg (port: MsgPortPtr): MessagePtr;
  16.  PROCEDURE Wait (sig: SignalSet): SignalSet;
  17. END Fixes.
  18.